Namespace Model.TaskQuery
  Public Class SearchTaskWithId
    Inherits AbstractTaskQuery

    Private mIdToLookFor As Integer

    Public Sub New(ByVal idToLookFor As Integer)
      mIdToLookFor = idToLookFor
    End Sub

    Public Overrides Sub Inspect(ByVal task As Task)
      If task.Id = mIdToLookFor Then
        'found
        PublishResult(task)
      End If
    End Sub

  End Class
End Namespace

